home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / textual / tex / files / !tex / mfinputs / romsub / mf
Encoding:
Text File  |  1988-02-26  |  1.5 KB  |  40 lines

  1. % This is ROMSUB.MF in text format, as of Mar 31, 1986.
  2. % This file defines characters that go into a text font when |ligs<=1|.
  3.  
  4. % Character codes \0013--\0015, \0074, and \0076 are generated when |ligs=1|;
  5. % in addition, codes \0040, \0042, \0055, \0134, \0137, and \0173--\0175
  6. % are generated, if |ligs=0|.
  7.  
  8. up_arrow=oct"013"; down_arrow=oct"014";
  9. less=ASCII"<"; greater=ASCII">";
  10. if ligs=0: straight_quotes=oct"042"; minus=ASCII"-";
  11.  backslash=ASCII"\"; underbar=ASCII"_";
  12.  left_brace=ASCII"{"; vertical=ASCII"|"; right_brace=ASCII"}"; fi
  13.  
  14. input sym;
  15.  
  16. cmchar "Straight single quote";
  17. beginchar(oct"015",5u#,asc_height#,0);
  18. italcorr asc_height#*slant+.5 if serifs: flare# else: stem# fi -2u#;
  19. adjust_fit(0,0);
  20. x1=x2=.5w; y2=max(.5[bar_height,x_height]+.5vair,h-x_height);
  21. if serifs: pickup crisp.nib; pos1(flare,0); pos2(vair,0);
  22.  y1+.5stem=h; filldraw circ_stroke z1e--z2e;  % stem and bulb
  23. else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
  24.  top y1=h; filldraw stroke z1e--z2e; fi  % stem
  25. penlabels(1,2); endchar;
  26.  
  27. iff ligs=0: cmchar "Blank-space sign";
  28. beginchar(oct"040",9u#,bar_height#,.5desc_depth#);
  29. italcorr bar_height#*slant-.25u#;
  30. adjust_fit(0,0);
  31. numeric thin_vair#; thin_vair#=.7vair#;
  32. define_whole_blacker_pixels(thin_vair);
  33. forsuffixes $=1,2,3,4: penpos$(thin_vair,0); endfor
  34. penpos0(thin_vair,90); x0=.5w; y0l=vround(-d-.5thin_vair);
  35. x1=x2; x3=x4=w-x1; lft x1l=hround .75u;
  36. y1=y4=h; y2=y3=y0;
  37. fill z1l---z2l...(x2,y0l)---(x3,y0l)...z3r---z4r
  38.  ..z4l---(x3l,y0r)--(x2r,y0r)---z1r..cycle;  % the stroke
  39. penlabels(0,1,2,3,4); endchar;
  40.